home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / TB.T < prev   
Text File  |  1993-10-06  |  3KB  |  87 lines
  1.     :: Dialer for Trailblazer and Trailblazer Plus
  2. dialnum
  3.     if S>3000 if !%s1 set s1 "lock"
  4.     gosub waketb        :: get modem to respond
  5.     pat; pat 9 OK
  6.     put "ATE1M1S66=0"
  7.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  8.     if is5,300 put "S50=1"
  9.     if is5,1200 put "S50=2"
  10.     if is5,2400 put "S50=3"
  11.     if js2,fast z pW10000; put "S50=255 S7=50"; if !%s1 set s1 "lock"
  12.     if !js2,mnp put "S95=0"
  13.     if js2,mnp put "S95=1"
  14.     if js2,a_mnp put "S95=2"
  15.     if %s1 put "S66=1 S58=2" if S==19200 put "S51=5"
  16.     if js2,_s put "S58=3"
  17.     if js2,v22 put "S90=1"
  18.     put "X3 S68=255 S111=0"
  19.     if js2,xmodem put "S111=20"
  20.     if js2,kermit put "S111=10"
  21.     if js2,uucp put "S111=30"
  22.     if "%s3>8" put "S7=70"        : longer wait if long distance
  23.     put "Q0S10=10V1\r"; wait -f2
  24.     :: put "ATS6=3S8=1S0=0\r" wait -f2
  25.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  26.     if %alds if ps3,0 putw "ATS8=10\r"
  27.     put "%mprefix";  put "%s3%alds";  dis -Q
  28.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  29.     put "\r";  dis -t
  30.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  31.     pat 1 "CONNECT\r"; pat 2l "NO CARRIER"; pat 3l "BUSY"; pat 4l RING;
  32.     pat 5l "ECT 12"; pat 6l "ECT 24"; pat 7l "CONNECT FAST"
  33.     pat 8l "NO DIALTONE";  pat 9l OK;  pat 10l "CONNECT 300"
  34.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  35.     pat 13l "VOICE"; pat 14l "NO ANS"; pat 15l "CONNECT 4800"
  36.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  37.     wait -f72
  38.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  39.     if "n||8||9||2||3||4||13||14" goto sorry
  40.     dis -d
  41.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  42.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  43.     if !%s1 goto ns1
  44.     if !Js1,s handshake slow; lput "Handshake SLOW: "
  45.     echo "Speed Locked"; goto mm2end
  46. ns1:    if "hREL" echo "MNP Connected";  handshake both; goto mm2end
  47.     if js2,mnp set s2 ""
  48. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  49.     if "1||10" sp 300 goto mm2end
  50.     if 5 sp 1200 goto mm2end
  51.     if 6 sp 2400 goto mm2end
  52.     if "du&&7" sp 9600 echo "9600 bps"; goto mm2end
  53.     if "7||12" sp 19200; goto mm2end
  54.     if 11 sp 9600; goto mm2end
  55. sorry:    echo "No Connect Message Detected."
  56.     : sleep 10; pat; pat 1 OK; putw "ATN?\r" wait
  57.     return
  58. mm2end:    set s9 "y"
  59.         if js1,mnp sleep 15    : for gliches in MM224E
  60.     return
  61.  
  62.  
  63.     : initmodem initializes the TrailBlazer NVRAM for these scripts
  64.     : "call init,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  65.     :
  66.     : It may be necessary to change the 9600 speed below if the
  67.     : NVRAM has been set to a strange value by somebody else
  68. initmodem    sp 9600; ena -t; gosub waketb
  69.     ena -t
  70.     putw "AAT&FS51=5\r"
  71.     sp 19200        :: doesn't work on TrailBlazer Plus
  72.     putw "AAAAATS51=255\r"
  73.     putw "aatS0=0 S7=45 S50=0 S52=1 S53=1 S54=1 S58=3 S68=3\r\336\336"
  74.     putw "aatS111=255 S95=0 S92=1 S52=2\r\336\336"
  75.     : putw "aaaATJ6S39=3\r\336\336"    : MNP bugfix magic incantation
  76.     if js0,,aa putw "ATE0 Q4 S51=255 S53=2 S66=1 S95=2 S0=2 S7=18\r"
  77.     putw "aaaAT&W\r\336\336"
  78.     return
  79.  
  80.  
  81. call2    sp 19200; gosub waketb; putw "ATM0H1\r";  sleep 20
  82.     sp 19200; gosub waketb; putw "ATX3Q0M0S10=10S50=0S0=1S95=2S7=30\r";
  83.     return
  84.  
  85. call1    sp 19200; gosub waketb;  putw ATM0H1\r"
  86.     return
  87.